home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / Apple Scanner Training / Needs / card_5306.txt < prev    next >
Encoding:
Text File  |  1990-04-09  |  3.8 KB  |  153 lines
  1. -- card: 5306 from stack: in
  2. -- bmap block id: 7239
  3. -- flags: 4000
  4. -- background id: 6685
  5. -- name: Needs Top card
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide menuBar
  9.   global showState
  10.   put empty into showState
  11.   ResetMenuField
  12.   set hilite of background button "Market Needs" to true
  13.   set hilite of background button "Examples" to false
  14.   show card field "Select Field"
  15.   put "Click on a market area in the list above to see needs, benefits, and features." into card field "Message Center"
  16.   show card field "Message Center"
  17. end openCard
  18.  
  19. on closeCard
  20.   show card field "Select Field"
  21.   hide card field "Message Center"
  22. end closeCard
  23.  
  24. on ResetMenuField
  25.   put " DTP/DTPres*" & return & " Desktop Communications" & return & " Legal" & return & " Engineering/Scientific" & return & " HyperCard Stack Development" & return into card field "Select Field"
  26. end ResetMenuField
  27.  
  28.  
  29.  
  30. -- part 54 (field)
  31. -- low flags: 01
  32. -- high flags: 2004
  33. -- rect: left=13 top=91 right=190 bottom=228
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 0
  37. -- font id: 3
  38. -- text size: 12
  39. -- style flags: 0
  40. -- line height: 16
  41. -- part name: Select Field
  42. ----- HyperTalk script -----
  43. on mouseUp
  44.   global whichExample,showState
  45.   put empty into whichExample
  46.   put empty into showState
  47.   put 1 + (the clickV - top of me) div textHeight of me into clickLine
  48.   if line clickLine of me is not empty then
  49.     put word 1 of line clickLine of card field "Select Field" into whichExample
  50.     put "‚Ä¢" into char 1 of line clickLine of card field "Select Field"
  51.     push card
  52.     visual dissolve to card
  53.     go to card whichExample
  54.   end if
  55. end mouseUp
  56.  
  57. on ResetMenuField
  58.   put " DTP/DTPres*" & return & " Desktop Communications" & return & " Legal" & return & " Engineering/Scientific" & return & " HyperCard Stack Development" & return into card field "Select Field"
  59. end ResetMenuField
  60.  
  61.  
  62.  
  63. -- part 55 (field)
  64. -- low flags: 81
  65. -- high flags: 0000
  66. -- rect: left=27 top=204 right=233 bottom=212
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 0
  70. -- font id: 3
  71. -- text size: 9
  72. -- style flags: 0
  73. -- line height: 12
  74. -- part name: Message Center
  75.  
  76.  
  77. -- part 56 (button)
  78. -- low flags: 00
  79. -- high flags: 0000
  80. -- rect: left=402 top=3 right=42 bottom=438
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 1008 / 1008
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: 
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   doMenu "Print Card"
  92. end  mouseUp
  93.  
  94.  
  95.  
  96.  
  97. -- part 57 (button)
  98. -- low flags: 00
  99. -- high flags: 0000
  100. -- rect: left=451 top=3 right=42 bottom=491
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 1004 / 1004
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: 
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   play harpsichord a4
  112.   global search
  113.   answer "Type of Search?" with "Browse" or "Automatic" or "Cancel"
  114.   if it is "Browse" then
  115.     visual wipe up slowly
  116.     go to card "Glossary" of stack "Glossary"
  117.   end if
  118.   if it is "Automatic" then
  119.     ask "Find Word?"
  120.     put it into search
  121.     if search is empty then
  122.       exit mouseUp
  123.     else
  124.       visual wipe up slowly
  125.       put "find search" into message box
  126.       hide message
  127.       go to card "Glossary" of stack "Glossary"
  128.       find word search in field "Text"
  129.       if the result is "not found" then
  130.         answer "Word not found." with "OK"
  131.         exit mouseUp
  132.       else
  133.         show card field id 13
  134.         wait 4 seconds
  135.         hide card field id 13
  136.       end if
  137.     end if
  138.   end if
  139. end mouseUp
  140.  
  141.  
  142. -- part contents for card part 54
  143. ----- text -----
  144.  DTP/DTPres*
  145.  Desktop Communications
  146.  Legal
  147.  Engineering/Scientific
  148.  HyperCard Stack Development
  149.  
  150.  
  151. -- part contents for card part 55
  152. ----- text -----
  153. Click on a market area in the list above to see needs, benefits, and features.